home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / gg / ncurses-5.3.lha / ncurses-5.3 / Ada95 / gen / terminal_interface-curses-forms < prev    next >
Text File  |  2002-10-24  |  4KB  |  72 lines
  1. --  -*- ada -*-
  2. define(`HTMLNAME',`terminal_interface-curses-forms-form_user_data__ads.htm')dnl
  3. include(M4MACRO)dnl
  4. ------------------------------------------------------------------------------
  5. --                                                                          --
  6. --                           GNAT ncurses Binding                           --
  7. --                                                                          --
  8. --                Terminal_Interface.Curses.Forms.Form_User_Data            --
  9. --                                                                          --
  10. --                                 S P E C                                  --
  11. --                                                                          --
  12. ------------------------------------------------------------------------------
  13. -- Copyright (c) 1998 Free Software Foundation, Inc.                        --
  14. --                                                                          --
  15. -- Permission is hereby granted, free of charge, to any person obtaining a  --
  16. -- copy of this software and associated documentation files (the            --
  17. -- "Software"), to deal in the Software without restriction, including      --
  18. -- without limitation the rights to use, copy, modify, merge, publish,      --
  19. -- distribute, distribute with modifications, sublicense, and/or sell       --
  20. -- copies of the Software, and to permit persons to whom the Software is    --
  21. -- furnished to do so, subject to the following conditions:                 --
  22. --                                                                          --
  23. -- The above copyright notice and this permission notice shall be included  --
  24. -- in all copies or substantial portions of the Software.                   --
  25. --                                                                          --
  26. -- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  --
  27. -- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               --
  28. -- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   --
  29. -- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   --
  30. -- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    --
  31. -- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    --
  32. -- THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               --
  33. --                                                                          --
  34. -- Except as contained in this notice, the name(s) of the above copyright   --
  35. -- holders shall not be used in advertising or otherwise to promote the     --
  36. -- sale, use or other dealings in this Software without prior written       --
  37. -- authorization.                                                           --
  38. ------------------------------------------------------------------------------
  39. --  Author:  Juergen Pfeifer, 1996
  40. --  Contact: http://www.familiepfeifer.de/Contact.aspx?Lang=en
  41. --  Version Control:
  42. --  $Revision: 1.13 $
  43. --  Binding Version 01.00
  44. ------------------------------------------------------------------------------
  45.  
  46. generic
  47.    type User is limited private;
  48.    type User_Access is access User;
  49. package Terminal_Interface.Curses.Forms.Form_User_Data is
  50.    pragma Preelaborate (Terminal_Interface.Curses.Forms.Form_User_Data);
  51.  
  52.    --  MANPAGE(`form_userptr.3x')
  53.  
  54.    --  ANCHOR(`set_form_userptr',`Set_User_Data')
  55.    procedure Set_User_Data (Frm  : in Form;
  56.                             Data : in User_Access);
  57.    --  AKA
  58.    pragma Inline (Set_User_Data);
  59.  
  60.    --  ANCHOR(`form_userptr',`Get_User_Data')
  61.    procedure Get_User_Data (Frm  : in  Form;
  62.                             Data : out User_Access);
  63.    --  AKA
  64.  
  65.    --  ANCHOR(`form_userptr',`Get_User_Data')
  66.    function Get_User_Data (Frm  : in  Form) return User_Access;
  67.    --  AKA
  68.    --  Same as function
  69.    pragma Inline (Get_User_Data);
  70.  
  71. end Terminal_Interface.Curses.Forms.Form_User_Data;
  72.